home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Helm d4.adf
/
BabyPaint
(
.txt
)
< prev
next >
Wrap
Helm Multimedia Book
|
1993-07-14
|
31KB
|
415 lines
BabyPaint
11-Nov-92
on BookOpen
begin
set tool to 0
click on object id 1
click on object id 19
click on object id 41
put 1 into object id 2
resetpaint
on BookClose
begin
set tool to 0
New...
Open...
Make Copy...
Streamline...
Print...
Report...
Preferences...
Workbench
Help...
About...
Quit...
Paste
Clear
Select All
Cut Page
Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Stop Sound
Show All
Edit Form
Share
Next Page
Previous Page
First Page
Last Page
Backward
Forward
Last Book
Browse...
Autobrowse...
Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Center
Corner
Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
Script...
Load...
Save...
Plain
Underline
Italic
Shadow
Font...
Spacing...
Hypertext
Actions...
Script...
Tools
Coordinates
Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
Histogram
Magnifier
Messages
Draw Tools
Layers
Pages
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
Effect...
Effect Area
DDDUUUfffwww
house.brush
smile.brush
topaz.fontGLOB
ram:house.brush
RAM:Test.book
Shelf
/on SelectUp
begin
set the pencolor to me
6on SelectDown
begin
set the tool to 4 'freehand
2on SelectDown
begin
set the tool to 5 'line
Aon SelectDown
begin
set the tool to 32777 'solid rectangle
7on SelectDown
begin
set the tool to 9 'rectangle
@on SelectDown
begin
set the tool to 32778 'filled ellipse
6on SelectDown
begin
set the tool to 10 'ellipse
6on SelectDown
begin
set the tool to 8 'airbrush
3on SelectDown
begin
set the tool to 7 'flood
aon SelectDown
begin
set the polysides to 4
set the tool to 32779 'filled regular polygon
aon SelectDown
begin
set the polysides to 3
set the tool to 32779 'filled regular polygon
#on SelectUp
begin
undo paint
$on SelectUp
begin
clear paint
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Eon SelectDown
begin
set painttype to 1
put me into the brush
Eon SelectDown
begin
set painttype to 0
put me into the brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
on FormOpen
begin
FormOpen
DDDUUUfffwww
on PageOpen
begin
JFORM
6ILBMBMHD
DDDUUUfffwww
TFORM
@ILBMBMHD
@@@PPP```ppp
ILBMBMHD
HFORM
4ILBMBMHD
@@@PPP```ppp
ILBMBMHD
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
ILBMBMHD
ppppCRNG
*FORM
ILBMBMHD
0FORM
ILBMBMHD
DDDUUUfffwww
>FORM
*ILBMBMHD
DDDUUUfffwww
DFORM
0ILBMBMHD
DDDUUUfffwww
XFORM
DILBMBMHD
DDDUUUfffwww
`FORM
LILBMBMHD
DDDUUUfffwww
xILBMBMHD
xILBMBMHD
xILBMBMHD
xILBMBMHD
FORM
ILBMBMHD
DDDUUUfffwww
&FORM
ILBMBMHD
JFORM
6ILBMBMHD
on PageOpen
begin
Shelf
/on SelectUp
begin
set the pencolor to me
6on SelectDown
begin
set the tool to 4 'freehand
2on SelectDown
begin
set the tool to 5 'line
Aon SelectDown
begin
set the tool to 32777 'solid rectangle
7on SelectDown
begin
set the tool to 9 'rectangle
@on SelectDown
begin
set the tool to 32778 'filled ellipse
6on SelectDown
begin
set the tool to 10 'ellipse
6on SelectDown
begin
set the tool to 8 'airbrush
3on SelectDown
begin
set the tool to 7 'flood
aon SelectDown
begin
set the polysides to 4
set the tool to 32779 'filled regular polygon
aon SelectDown
begin
set the polysides to 3
set the tool to 32779 'filled regular polygon
#on SelectUp
begin
undo paint
$on SelectUp
begin
clear paint
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Lon SelectDown
begin
set the painttype to zero
put me into the brush
Eon SelectDown
begin
set painttype to 1
put me into the brush
Eon SelectDown
begin
set painttype to 0
put me into the brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
Aon SelectDown
begin
set painttype to 1
put me into brush
on FormOpen
begin
FormOpen
DDDUUUfffwww